Shareware Overload Trio 2/Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO/dir26/epi601_2.zip/FILES06.EXE/MEASURE.CHK

Text File | 1994-08-22 | 3KB | 190 lines

*******************************************************************************
*MEASURE.CHK, Version 2.0, 18/OCT/93, Kevin Sullivan, Emory University       *
*Check file to demonstrate the use of nutrition anthropometry within Epi Info*
* version 6.                                                                 *
******************************************************************************
******************************************************************************
*Special note:  If you are going to add fields to the REC file, you will     *
* want to remove the GOTO WRITEREC that appears in 3 lines and jump to the   *
* first added field in the .CHK file.  For more information on how to modify *
* the Check file, please refer to the appropriate chapters in the Epi Info   *
* version 6 documentation                                                    *
******************************************************************************

NAME
  UPDATE OFF
  COLOR QUESTION 31
  COLOR DATA 112
  COLOR BACKGROUND 1
*  SET ALL FIELDCHAR " "
  UPDATE
  ENTER
  AutoJump SEX
END

SEX
  Legal
    M
    1
    F
    2
  END
  AutoJump AGE
END

AGE
  Range 0 infinity
  AutoJump YRS
END

BIRTHDATE
  AutoJump VISITDATE
  IF birthdate = .
  THEN
    GOTO WEIGHT
  ENDIF
END

YRS
  Range 0 infinity
  AutoJump BIRTHDATE
  IF YRS = .
  THEN
    GOTO BIRTHDATE
  ELSE
    IF AGE = . OR AGE = 0
    THEN
      LET AGE = 0
    ENDIF
    LET AGE = AGE + (YRS * 12)
    LET YRS = 0
  ENDIF
END

VISITDATE
  IF visitDATE = .
  THEN
    GOTO WEIGHT
  ELSE
    LET AGE = (VISITDATE - BIRTHDATE) /30.44
  ENDIF
END

WEIGHT
  Range 0 infinity
  IF WEIGHT = .
  THEN
    GOTO LBS
  ELSE
    GOTO HEIGHT
  ENDIF
END

LBS
  Range 0 infinity
END

OZS
  Range 0 infinity
  IF OZS = .
  THEN
    OZS = 0
  ENDIF
  IF LBS = .
  THEN
    LBS = 0
  ENDIF
  LET WEIGHT = (LBS + (OZS/16)) * 0.45359237
  GOTO HEIGHT
END

HAP
  NoEnter
END

HAZ
  NoEnter
END

HAM
  NoEnter
END

HEIGHT
  Range 0 infinity
  IF HEIGHT = .
  THEN
    GOTO FT
  ELSE
    if age = .
    then
      age = 999.99
    endif
    LOAD ENTFACE.BIN
    CALL ENTFACE 75
    if age = 999.99
    then
      age = .
    endif
    UPDATE
    GOTO WRITEREC
  ENDIF
END

WAP
  NoEnter
END

WAZ
  NoEnter
END

WAM
  NoEnter
END

FT
  Range 0 infinity
  AutoJump IN
END

IN
  Range 0 infinity
  IF FT = .
    THEN FT = 0
  ENDIF
  IF IN = .
    THEN IN = 0
  ENDIF
  LET HEIGHT = ((FT*12) + IN) * 2.54
  if age = .
  then
    age = 999.99
  endif
  LOAD ENTFACE.BIN
  CALL ENTFACE 75
  if age = 999.99
  then
    age = .
  endif
  UPDATE
  GOTO WRITEREC
END

WHP
  NoEnter
END

WHZ
  NoEnter
END

WHM
  NoEnter
END

FLAG
  NoEnter
END